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" FACILITY: EXECUTIVE, SYSTEM SERVICES 


; ABSTRACT 
j ; THIS MODULE CONTAINS THE SYSTEM SERVICES SETAST WHICH CONTROL S 
; THE STATE OF One AST ENABLES AND DCLAST WHICH DECLARES AN 
5 AST FOR A PARTICULAR ACCESS MODE. 
+ ENVIRONMENT: 
cy : . PAGE 
4g *SBTTL HISTORY : DETAILED 
é ; AUTHOR: R. HUSTVEDT CREATION DATE: 21-SEP-76 
i MODIFIED BY: 
, t VERSION 
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-SBTTL DECLARATIONS 


INCLUDE FILES: 
TPC DEE 
co 
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ACMODE=12 
ST=4 
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DISPLACEMENT TO access 
DISPLACEMENT TO AST ADDRES 
DISPLACEMENT TO AST PARAMETER 
DISPLACEMENT TO ENABLE ARGUMENT 
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-SBTTL EXESSETAST = SET AST ENABLES 


“Funcriows RSETAST ALLOy Lows A PR eocess re cent ron teeny Ha IVERY 
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CALLING SEQUENCE: 
CALLG ARGLIST,EXESSETAST 


INPUT PARAMETERS: 
O4(AP) = NEW SETTING FOR AST ENABLE 
R4 = PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 
SCHSGL_CURPCB = POINTER TO CURRENT PROCESS PCB 


OUTPUT PARAMETERS: 
RO = COMPLETION STATUS CODE 
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1 IMPLICIT OUTPUTS: 

AST ENABLE FOR PREVIOUS MODE IS SET ACCORDING TO ARGUMENT 

1 THE NEW SETTING FOR THE ASTLVL REGISTER IS PLACED BOTH IN 

THE PROCESSOR REGISTER AND THE CURRENT HARDWARE PCB. 

1 COMPLETION CODES: 

1 SS$_WASCLR = AST ENABLE FOR ACCESS MODE WAS CLEAR 

SS$S"WASSET - AST ENABLE FOR ACCESS MODE WAS SET 

1 SIDE EFFECTS: 

1 ANY PENDING ASTS FOR THIS PROCESS WHICH BECOME DELIVERABLE 

1 AS A RESULT OF SETTING AN AST ENABLE MAY BE DELIVERED UPON 

EXIT FROM’ THIS SERVICE. 

! = 

117 EXESSETAST:: ; SET AST ENABLE SYSTEM SERVICE 
1 . WORD ncR2, R3,R4,R5> ; SAVE REGISTERS R2=R 

1 MOVPSL RI GET CURRENT PSL 

1 EXTZV sPSLSV PR PRYROD glPSLSS _PRVAOD ;,R Rl ; EXTRACT PREVIOUS MODE 
| MOVZWL ; ene stt 

1 BBS “eCbRS Aste nd, 10$ ; TEST OLD ENABLE SETTING 

1 MOVZWL ie tk WAS CLEAR 

124 10$ INSV NABCE CAPD, Rt ,#1,PCB$B8 Ast N(R4) SET NEW ENABLE VALUE 
1 BSBW Sean 7 Compute NEw ASTLY 

1 MOVL :* Set COMPLETION TATUS 

1 RET > AND RETURN TO CALL 
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i FUNCTIONAL DESCRIPTION: 
EXESDCLAST ALLOWS A PROCESS TO ENQUEVE AN AST FOR THE ACCESS 
MODE ISSUING THE CALL OR A LESS PRIVILEGED ACCESS MODE. 


CALLING SEQUENCE: 
CALLG ARGLIST,EXESDCLAST 


INPUT PARAMETERS 
O8 (Ae) - AD RESS aner est ROUTINE 


SS = 


DO 
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(AP) = AST PAR 
(AP) = ACCESS MODE AT WHICH TO ENQUEUE AST 
R4 = PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 
CURRENT PCB 


OUTPUT PARAMETERS: 
RO - COMPLETION STATUS 

IMPLICIT OUTPUTS: 
NONE 

SIDE EFFECTS: 
THE ENQUEUING OF AN AST WILL EVENTUALLY CAUSE A DIVERSION 
OF CONTROL TO OCCUR WHICH WILL CAUSE THE AST ROUTINE TO BE 
CALLED. 

COMPLETION CODES: 
SS$ tet | = WOR 7m SUCCESSFUL COMPLETION STATUS 
SS$_EXQUOTA = QUOTA EXCEEDED FOR AST CONTROL BLOCKS 
$S$_ INSFRER - INSUFFICIENT DYNAMIC ME 
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XESDCLAST:: : DECLARE AST SYSTER SERVICE 
003 “WORD “M<R2,R3,R4,R5> : SAVE REGISTERS R2-R 
38 AG a TSTw pcasW_ * ASTCNT (R4) TEST FOR QUOTA 
33 7 BLEQ : YES, ERROR RETURN 
FFD ' 3 9 BSBW ba, to8 LOCIRP + ALLOCATE PACKET 
9 0 E C BLBC : DID NOT GET I 
BAS 8B F DECW Beet 33; ACCOUNT FOR IT 
; DO : MOVL 7:7 SAVE BASE ADDRESS OF ACB 
50 ocac 02 F EXTZV gACROBE CAP). RO :° GET ACCESS MODE ARGUMENT 
FFC2° BSBW ie : MAXIMIZE ACCESS MODE 
50 40 &F B1SB <TBAceaV MOUpTAD RO ; SET QUOTA FLAG FOR PROCESS 
AS 4 MOVB RO CB$B_RMOD(RSS SET ACCESS MODE FOR ast 
oc A 60 Ad p 4 MOVL PcBse PIB(R4) ,ACBSL pinks) : SEI PID IN AST CB 
A A D 004 MOVG AST(AP) ,ACBSL“AST(RS) STORE AST, ASTPRM 
5 4 CLRL 3 NULL PRIORITY INCR 
FFAB' 30 BSBW AST + AND ENQUE I 
50 0 C MOVZWL ASS8_NORMAL RO + SET NORMAL STATUS 
10$: SETIPL # ; ENABLE 
9 058 RET : AND RETURN TO CALLER 
so 1c 3¢ C 20$:  MOVZWL #SS$_EXQUOTA,RO + SET ERROR STATU 
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Phase 
Initialization 
C processing } 
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Pass 
Pass ¢ iable sort 


ass 

Symbol table output 

Psect synopsis output 
Cross-reference output 

Assembler run totals 4 
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Limit was 1350 pages. 
pages) of virtual memory were used to buffer 
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! Macro Library statistics ! 


Saree caw or emer e es ee see oma d 


Rasioush fi macree Cofined 
EUR TE ORR iy. 
TorAe all het. es) 1 


800 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSASTCON/OBJ=0BJ$:SYSASTCON MSRC$:SYSASTCON/UPDATE=(ENHS: SYSASTCON) +EXECML$/LIB 
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